home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 24 / AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso / PublicDomain / Anwendungen / MT-RechnungIII / PrintDoks / RechnungsübZus_NW1.inbpri < prev    next >
Text File  |  1999-03-27  |  10KB  |  470 lines
  1. 3$VER: RechnungsübZusatz Netto Währung1 1.05 (27.03.99)
  2. %!PS-Adobe-3.0
  3. %%Creator: Manfred Tremmel
  4. %%CreationDate: (27.03.1999)
  5. %%Version: 1.05
  6. %%Title: (MT-RechnungIII - Rechnungsübersicht Währung1 Netto mit Versandzusatzkosten)
  7. %%LanguageLevel: 2
  8. %%DocumentMedia: A4 594 839 null () ()
  9. %%DocumentNeededResources: font Times-Roman
  10. %%BoundingBox: 0 0 549 839
  11. %%EndComments
  12. %%BeginnDefaults
  13. %%PageMedia: A4
  14. %%EndDefaults
  15.  
  16. %%BeginnSetup
  17. << /PageSize [594 839] >> setpagedevice
  18.  
  19. /PageSize [594 839] def
  20.  
  21. /DokumentRandX 54 def
  22. /DokumentRandY 50 def
  23.  
  24. DruckrandX 720 mul 256 div /DruckrandX exch def
  25. DruckrandY 720 mul 256 div /DruckrandY exch def
  26.  
  27. DruckrandX DokumentRandX ge
  28. {
  29.     0 /DokumentRandX exch def
  30. }
  31. {
  32.     DokumentRandX DruckrandX sub /DokumentRandX exch def
  33. } ifelse
  34.  
  35. DruckrandY DokumentRandY ge
  36. {
  37.     PageSize 1 get /DokumentRandY exch def
  38. }
  39. {
  40.     PageSize 1 get DokumentRandY sub DruckrandY add /DokumentRandY exch def
  41. } ifelse
  42.  
  43. /DokumentRandYOriginal DokumentRandY def
  44. %%EndSetup
  45.  
  46. %%BeginnResource
  47. /reencodedict 5 dict def
  48. /ReEncode
  49. {
  50.      reencodedict begin
  51.      /newencoding exch def
  52.      /newfontname exch def
  53.      /basefontname exch def
  54.  
  55.      /basefontdict basefontname findfont def
  56.  
  57.      /newfont basefontdict maxlength dict def
  58.  
  59.      basefontdict
  60.      { exch dup dup /FID ne exch /Encoding ne and
  61.           { exch newfont 3 1 roll put }
  62.           { pop pop }
  63.           ifelse
  64.      } forall
  65.      newfont /FontName newfontname put
  66.      newfont /Encoding newencoding put
  67.      newfontname newfont definefont pop
  68.      end
  69. } def
  70.  
  71. /ISOLatin8Encoding
  72. [
  73.     ISOLatin1Encoding 0 164 getinterval aload pop
  74.     /euro
  75.     ISOLatin1Encoding 165 91 getinterval aload pop
  76. ] def
  77. /getfont {ISOLatin8Encoding ReEncode findfont exch scalefont def} bind def
  78. /getsymbol {findfont exch scalefont def} bind def
  79. %%EndResource
  80.  
  81. %% Fontpsoidoname, Fontgroesse, Realname, Programm (siehe oben)
  82. /Times10Zeile 10 def
  83. /Times10 Times10Zeile /OF0 /Times-Roman /OF0 getfont
  84. /Times24Zeile 24 def
  85. /Times24 Times24Zeile /OF0 /Times-Roman /OF0 getfont
  86.  
  87. /Seite 1 def
  88. /SeitenNr 4 string def
  89. /W 0 def
  90. /N 0 def
  91. /B 1 def
  92. /M 0 def
  93.  
  94. %% Definition der Überschrift
  95. /Ueberschrift
  96. {
  97.     /BoxX1 DokumentRandX def
  98.     /BoxX2 486 def
  99.     /BoxY1 DokumentRandY 2 sub Times10Zeile sub def
  100.     /BoxY2 Times10Zeile Times10Zeile add def
  101.  
  102.     0.9 setgray
  103.     BoxX1 BoxY1 BoxX2 BoxY2 rectfill
  104.     0.0 setgray
  105.     BoxX1 BoxY1 BoxX2 BoxY2 rectstroke
  106.  
  107.     DokumentRandX 3 add DokumentRandY moveto
  108.     (RechNr.) show
  109.  
  110.     DokumentRandX 100 add DokumentRandY moveto
  111.     (Datum) show
  112.  
  113.     DokumentRandX 250 add DokumentRandY moveto
  114.     (Lieferant) show
  115.  
  116.     DokumentRandX 300 add DokumentRandY moveto
  117.     (Besteller) show
  118.  
  119.     DokumentRandY Times10Zeile sub /DokumentRandY exch def
  120.  
  121.     DokumentRandX 50 add DokumentRandY moveto
  122.     (ArtikelNr) show
  123.  
  124.     DokumentRandX DokumentRandY moveto
  125.     (Anzahl) dup stringwidth
  126.     pop 150 exch sub
  127.     DokumentRandX add DokumentRandY moveto show
  128.  
  129.     DokumentRandX 160 add DokumentRandY moveto
  130.     (Einheit) show
  131.  
  132.     DokumentRandX DokumentRandY moveto
  133.     (MWSt) dup stringwidth
  134.     pop 250 exch sub
  135.     DokumentRandX add DokumentRandY moveto show
  136.  
  137.     DokumentRandX DokumentRandY moveto
  138.     (Einzelpreis) dup stringwidth
  139.     pop 325 exch sub
  140.     DokumentRandX add DokumentRandY moveto show
  141.  
  142.     DokumentRandX DokumentRandY moveto
  143.     (Positionssumme) dup stringwidth
  144.     pop 400 exch sub
  145.     DokumentRandX add DokumentRandY moveto show
  146.  
  147.     DokumentRandX DokumentRandY moveto
  148.     (Endsumme) dup stringwidth
  149.     pop 480 exch sub
  150.     DokumentRandX add DokumentRandY moveto show
  151.  
  152.     DokumentRandY Times10Zeile sub 5 sub /DokumentRandY exch def
  153.  
  154. } def
  155.  
  156. %% Ausgab der Kopfdaten
  157.  
  158. Times24 setfont
  159.  
  160. DokumentRandX DokumentRandY moveto
  161. (Eingangsrechnungen \(Netto\)) dup stringwidth pop
  162. PageSize 0 get exch sub 2 div cvi DokumentRandY moveto show
  163.  
  164. DokumentRandY Times24Zeile sub Times24Zeile sub /DokumentRandY exch def
  165.  
  166. Times10 setfont
  167.  
  168. Ueberschrift
  169.  
  170. /ERechnungElemente ERechnungTabelle length def
  171. /ERechnungPosition 0 def
  172.  
  173. ERechnungTabelle
  174. {
  175.  
  176.     ERechnungPosition 1 add /ERechnungPosition exch def
  177.  
  178.     ERechnungElemente ERechnungPosition eq
  179.     {
  180.         /Zeilen 2 def
  181.         /pos exch def
  182.         pos 21 get
  183.         {
  184.             {
  185.                 Zeilen 1 add /Zeilen exch def
  186.             } if
  187.         } forall
  188.  
  189.         Zeilen Times10Zeile mul cvi 50 add DokumentRandY gt
  190.         {
  191.             DokumentRandX 450 add 50 moveto
  192.             (Seite: ) show
  193.             Seite SeitenNr cvs show
  194.             showpage
  195.  
  196.             /DokumentRandY DokumentRandYOriginal def
  197.             Ueberschrift
  198.             Seite 1 add /Seite exch def
  199.         } if
  200.  
  201.         DokumentRandX 3 add DokumentRandY moveto
  202.         (Gesamtsumme \(Netto\):) show
  203.         DokumentRandX DokumentRandY moveto
  204.         pos 19 get N get dup stringwidth
  205.         pop 480 exch sub
  206.         DokumentRandX add DokumentRandY moveto
  207.         show
  208.         DokumentRandY Times10Zeile sub /DokumentRandY exch def
  209.  
  210.         /Zaehler 0 def
  211.         pos 21 get
  212.         {
  213.             {
  214.                 DokumentRandX 3 add DokumentRandY moveto
  215.                 (Mehrwertsteuer \() show
  216.                 pos 20 get Zaehler get show
  217.                 (%, Netto: ) show
  218.                 pos 36 get Zaehler get N get show
  219.                 (, Brutto: ) show
  220.                 pos 36 get Zaehler get B get show
  221.                 (\):) show
  222.  
  223.                 DokumentRandX DokumentRandY moveto
  224.                 pos 33 get Zaehler get M get dup stringwidth
  225.                 pop 480 exch sub
  226.                 DokumentRandX add DokumentRandY moveto
  227.                 show
  228.  
  229.                 DokumentRandY Times10Zeile sub /DokumentRandY exch def
  230.             } if
  231.  
  232.             Zaehler 1 add /Zaehler exch def
  233.         } forall
  234.  
  235.         DokumentRandX 3 add DokumentRandY moveto
  236.         (Gesamtsumme \(Brutto\):) show
  237.         DokumentRandX DokumentRandY moveto
  238.         pos 19 get B get dup stringwidth
  239.         pop 480 exch sub
  240.         DokumentRandX add DokumentRandY moveto
  241.         show
  242.         DokumentRandY Times10Zeile sub /DokumentRandY exch def
  243.     }
  244.     {
  245.         /Zeilen 3 def
  246.         /pos exch def
  247.         pos 20 get
  248.         {
  249.             Zeilen 1 add /Zeilen exch def
  250.         } if
  251.  
  252.         pos 22 get
  253.         {
  254.             Zeilen 1 add /Zeilen exch def
  255.         } if
  256.  
  257.         pos 28 get
  258.         {
  259.             Zeilen 1 add /Zeilen exch def
  260.         } if
  261.  
  262.         pos 58 get
  263.         {
  264.             0 ne
  265.             {
  266.                 Zeilen 1 add /Zeilen exch def
  267.             } if
  268.         } forall
  269.  
  270.         pos 63 get
  271.         {
  272.             Zeilen 1 add /Zeilen exch def
  273.             1 get 11 get
  274.             {
  275.                 0 ne
  276.                 {
  277.                     Zeilen 1 add /Zeilen exch def
  278.                 } if
  279.             } forall
  280.         } forall
  281.  
  282.         Zeilen Times10Zeile mul cvi 50 add DokumentRandY gt
  283.         {
  284.             DokumentRandX 450 add 50 moveto
  285.             (Seite: ) show
  286.             Seite SeitenNr cvs show
  287.             showpage
  288.  
  289.             /DokumentRandY DokumentRandYOriginal def
  290.             Ueberschrift
  291.             Seite 1 add /Seite exch def
  292.         } if
  293.  
  294.         DokumentRandX 3 add DokumentRandY moveto
  295.         pos 4 get () gt
  296.         {
  297.             pos 4 get show
  298.         }
  299.         {
  300.             pos 0 get show
  301.         } ifelse
  302.  
  303.         DokumentRandX 100 add DokumentRandY moveto
  304.         pos 15 get 0 get show
  305.  
  306.         DokumentRandX 250 add DokumentRandY moveto
  307.         pos 3 get show
  308.    
  309.         DokumentRandX 300 add DokumentRandY moveto
  310.         pos 2 get show
  311.    
  312.         DokumentRandY Times10Zeile sub /DokumentRandY exch def
  313.  
  314.         pos 63 get
  315.         {
  316.             /art exch def
  317.  
  318.             DokumentRandX 50 add DokumentRandY moveto
  319.             art 1 get 1 get show
  320.  
  321.             DokumentRandX DokumentRandY moveto
  322.             art 1 get 2 get dup stringwidth
  323.             pop 150 exch sub
  324.             DokumentRandX add DokumentRandY moveto
  325.             show
  326.  
  327.             DokumentRandX 160 add DokumentRandY moveto
  328.             art 0 get 5 get show
  329.  
  330.             DokumentRandX DokumentRandY moveto
  331.             art 1 get 8 get dup stringwidth
  332.             pop 250 exch sub
  333.             DokumentRandX add DokumentRandY moveto
  334.             show
  335.  
  336.             DokumentRandX DokumentRandY moveto
  337.             art 1 get 3 get W get dup stringwidth
  338.             pop 325 exch sub
  339.             DokumentRandX add DokumentRandY moveto
  340.             show
  341.  
  342.             /Zeilen 0 def
  343.             art 1 get 11 get
  344.             {
  345.                 0 ne
  346.                 {
  347.                     DokumentRandY Times10Zeile sub /DokumentRandY exch def
  348.  
  349.                     DokumentRandX 100 add DokumentRandY moveto
  350.                     art 1 get 13 get Zeilen get show
  351.  
  352.                     DokumentRandX DokumentRandY moveto
  353.                     art 1 get 12 get Zeilen get W get dup stringwidth
  354.                     pop 250 exch sub
  355.                     DokumentRandX add DokumentRandY moveto
  356.                     show
  357.  
  358.                     DokumentRandX DokumentRandY moveto
  359.                     art 1 get 15 get Zeilen get W get dup stringwidth
  360.                     pop 325 exch sub
  361.                     DokumentRandX add DokumentRandY moveto
  362.                     show
  363.                 } if
  364.                 Zeilen 1 add /Zeilen exch def
  365.             } forall
  366.  
  367.             DokumentRandX DokumentRandY moveto
  368.             art 1 get 6 get W get dup stringwidth
  369.             pop 400 exch sub
  370.             DokumentRandX add DokumentRandY moveto
  371.             show
  372.  
  373.             DokumentRandY Times10Zeile sub /DokumentRandY exch def
  374.  
  375.         } forall
  376.  
  377.         /Zeilen 0 def
  378.         pos 58 get
  379.         {
  380.             0 ne
  381.             {
  382.                 DokumentRandX 50 add DokumentRandY moveto
  383.                 pos 60 get Zeilen get show
  384.         
  385.                 DokumentRandX DokumentRandY moveto
  386.                 pos 59 get Zeilen get W get dup stringwidth
  387.                 pop 325 exch sub
  388.                 DokumentRandX add DokumentRandY moveto
  389.                 show
  390.  
  391.